home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / mac / LOGIC Apple II 5.25" Library - ProDOS / PRO023.dsk / CV.bas < prev    next >
BASIC Source File  |  2012-02-16  |  1KB  |  38 lines
  1. 0  HOME : TEXT 
  2. 10  PRINT 
  3. 15  PRINT "This explains why images projected      from the concave side of the spoon are  sometimes upside down."
  4. 17  PRINT : GOSUB 200
  5. 19  PRINT "Again, the angle of INCIDENCE is equal  to the angle of REFLECTION."
  6. 21  PRINT : GOSUB 200
  7. 23  PRINT "In this case, the line perpendicular    to the surface must pass through the"
  8. 25  PRINT "center of an imaginary circle extending outward from the CONCAVE mirror."
  9. 27  PRINT : GOSUB 200
  10. 28  PRINT " Concave  - - -"
  11. 29  PRINT " Mirror *       -"
  12. 30  PRINT "      *           -"
  13. 31  PRINT "     *             -"
  14. 32  PRINT "     *_______ Line perpendicular"
  15. 33  PRINT "     *             -"
  16. 34  PRINT "      *           -"
  17. 35  PRINT "        *       -"
  18. 36  PRINT "          - - - Imaginary Circle"
  19. 40  GOSUB 200
  20. 41  PRINT 
  21. 42  PRINT "        Press any key"
  22. 44  GET KY$
  23. 45  HOME 
  24. 59  PRINT : PRINT : PRINT : PRINT 
  25. 60  PRINT "Enter <P> to see the Concave mirror     again or enter <N> to see what kind of  mirror can make images appear bloated."
  26. 62  PRINT : PRINT : PRINT : PRINT 
  27. 70  GET KY$
  28. 92  IF KY$ = "p"  OR KY$ = "P"  THEN  PRINT  CHR$(4);"run m2"
  29. 94  IF KY$ = "n"  OR KY$ = "N"  THEN  PRINT  CHR$(4);"run m3"
  30. 95  PRINT 
  31. 96  PRINT " Please enter either <P> or <N> only."
  32. 97  PRINT 
  33. 98  GOTO 70
  34. 150  END 
  35. 200  FOR I = 0 TO 2000
  36. 202 J = 1
  37. 204  NEXT I
  38. 206  RETURN